home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H107.ZIP / MAY91.ZIP / TIP659.LSP < prev    next >
Text File  |  1991-05-13  |  214b  |  13 lines
  1. ;TIP659.LSP   Lisp Library   (c)1991, Greg Kaufman
  2.  
  3. (defun :LGET ()
  4.   (setq CLAYER (getvar "CLAYER"))
  5.   (princ)
  6. )
  7. (defun :LSET ()
  8.   (setvar "CMDECHO" 0)
  9.   (command ".LAYER" "S" CLAYER "")
  10.   (princ)
  11. )
  12. 
  13.